home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Jumpstart / Multimedia Microsoft Jumpstart Version 1.1a (Microsoft).BIN / develpmt / drivers / mscdex / hitachi / macros.mac < prev    next >
Encoding:
Text File  |  1990-10-15  |  20.7 KB  |  1,016 lines
  1.     page    ,132
  2. ;-----------------------------Module-Header-----------------------------;
  3. ; Module Name:    MACROS.MAC
  4. ;
  5. ; This file contains macros definitions for all display drivers to use.
  6. ;
  7. ; Created: 06-Jan-1987
  8. ; Author:  Walt Moore [waltm]
  9. ;
  10. ; Copyright (c) 1987 Microsoft Corporation
  11. ;
  12. ; Exported Functions:    none
  13. ;
  14. ; Public Functions:    none
  15. ;
  16. ; Public Data:        none
  17. ;
  18. ; General Description:
  19. ;
  20. ;    Two text equates are given as short hand for WORD PTR
  21. ;    and BYTE PTR.
  22. ;
  23. ;    A Macro is defined for performing 16-bit output on machines
  24. ;    which cannot correctly do so.
  25. ;
  26. ;    The macro which is invoked by CMACROS for private stack
  27. ;    checking is defined.
  28. ;
  29. ; Restrictions:
  30. ;    The use of the ?CHKSTKPROC macro requires it to be defined
  31. ;    before CMACROS is included.  If CMACROS is included before
  32. ;    the include file, a ?CHKSTKPROC macro should be defined
  33. ;    with a null macro body.  This macro will then redefine the
  34. ;    earlier macro.
  35. ;
  36. ;    The out16 macro is intended as documentation for anyone
  37. ;    converting a driver to a machine which cannot do 16-bit
  38. ;    outputs correctly.  There is no guarantee that any code
  39. ;    will have been tested (only one machine is known to have
  40. ;    the problem).
  41. ;
  42. ;-----------------------------------------------------------------------;
  43.  
  44.  
  45.  
  46.  
  47. ;    The following two equates are just used as shorthand
  48. ;    for the "word ptr" and "byte ptr" overrides.
  49.  
  50. fptr    equ    fword ptr
  51. wptr    equ    word  ptr
  52. bptr    equ     byte  ptr
  53.  
  54. ; The following structure should be used to access high and low
  55. ; words of a DWORD.  This means that "word ptr foo[2]" -> "foo.hi".
  56.  
  57. LONG    struc
  58. lo      dw      ?
  59. hi      dw      ?
  60. LONG    ends
  61.  
  62. FARPOINTER      struc
  63. off     dw      ?
  64. sel     dw      ?
  65. FARPOINTER      ends
  66.  
  67. FPOINTER        struc
  68. foff    dd      ?
  69. fsel    dw      ?
  70. FPOINTER        ends
  71.  
  72. ;---------------------------------Macro---------------------------------;
  73. ; out16
  74. ;
  75. ; out16 is a macro used wherever any 16-bit output is performed.
  76. ; The macro is intended to serve as documentation for those machines
  77. ; which do not perform 16-bit outputs correctly (where correctly is
  78. ; defined as the way the IBM AT does it).
  79. ;
  80. ; usage
  81. ;
  82. ;     out16   d,a
  83. ;
  84. ; where
  85. ;
  86. ;     d   -   I/O address register. Included as documentation
  87. ;          only.  Must always be DX (lower case).
  88. ;
  89. ;     a   -   Register to output.  Included as documentation
  90. ;          only.  Must always be AX (lower case).
  91. ;
  92. ; Entry:
  93. ;    AX    = data to output
  94. ;    DX    = I/O port address
  95. ; Returns:
  96. ;    none
  97. ; Error Returns:
  98. ;    none
  99. ; Registers Destroyed:
  100. ;    FLAGS
  101. ; Registers Preserved:
  102. ;    AX,BX,CX,DX,SI,DI,BP,DS,ES
  103. ; Calls:
  104. ;       none
  105. ; History:
  106. ;    Fri 16-Jan-1987 16:49:03 -by-  Walt Moore [waltm]
  107. ;    Initial version
  108. ;-----------------------------------------------------------------------;
  109.  
  110.  
  111. ifndef    IO8                ;;If normal 16 bit outputs
  112.   out16   equ      out
  113. else                    ;;If 8-bit outputs
  114.   out16 macro d,a
  115.     ifdif <a>,<ax>
  116.     %out out16 - invalid register, must be ax
  117.     .err
  118.     endif
  119.     ifdif    <d>,<dx>
  120.     %out    out16 - invalid register, must be dx
  121.     .err
  122.     endif
  123.     ifdif <is>,<cli>        ;;  If interrupts not off
  124.     cli                ;;    then turn them off
  125.     endif                ;;
  126.     out    dx,al            ;;  Output LSB portion
  127.     inc    dx            ;;  --> next address
  128.     xchg    al,ah            ;;  Get MSB of output value
  129.     out    dx,al            ;;  Output MSB portion
  130.     ifdif <ie>,<cli>        ;;  If not explicitly told to leave
  131.     sti                ;;    interrupts off, turn them on
  132.     endif                ;;
  133.     ifdif <rd>,<dont_save_DL>    ;;  If not explicitly told to trash DX,
  134.     dec    dx            ;;    restore it.
  135.     xchg    al,ah
  136.     endif
  137.     endm
  138. endif
  139.  
  140.  
  141.  
  142. ;---------------------------------Macro---------------------------------;
  143. ; ?CHKSTKPROC
  144. ;
  145. ; Private Stack Checking Macro
  146. ;
  147. ; ?CHKSTKPROC will be invoked by the CMACROS for any procedure
  148. ; with local variables if both ?CHKSTK and ?CHKSTKPROC were
  149. ; defined prior to including the CMACROS.
  150. ;
  151. ; The macro has one parameter, which is the number of bytes
  152. ; to allocate, which is supplied by the CMACROS.
  153. ;
  154. ; The usage of this macro is defined by the CMACROS.  There is no
  155. ; user control over the macro.    Register usage will be as defined
  156. ; by the routine my_check_stack.
  157. ;
  158. ; Calls:
  159. ;    my_check_stack
  160. ; History:
  161. ;    Fri 16-Jan-1987 16:49:03 -by-  Walt Moore [waltm]
  162. ;    Initial version
  163. ;-----------------------------------------------------------------------;
  164.  
  165.  
  166. ifdef    ?CHKSTK             ;;Only define macro if
  167. ifdef    ?CHKSTKPROC            ;;  private stack checking
  168. ifndef    ?CHKSTKNAME            ;;If user name differs from default
  169. extrn    my_check_stack:near        ;;Procedure to do the checking
  170. endif
  171. ?CHKSTKPROC macro s            ;;Actual macro text
  172.     mov    ax,s            ;;my_check_stack takes requested space
  173. ifdef    ?CHKSTKNAME
  174.     ?CHKSTKNAME
  175. else
  176.     call    my_check_stack        ;;  in AX
  177. endif
  178. endm
  179. endif
  180. endif
  181.  
  182.  
  183.  
  184. ;-----------------------------------------------------------------------;
  185. ; odd    --- macro for odd alignment, counterpart for masm's "even".
  186. ;
  187. ; Arguments:
  188. ;    none
  189. ; Returns:
  190. ;    nothing
  191. ; Alters:
  192. ;    nothing
  193. ; Calls:
  194. ;    nothing
  195. ; History:
  196. ;
  197. ;  Sun Mar 01, 1987 07:48:01p    -by-    Wesley O. Rupel   [wesleyr]
  198. ; Wrote it!
  199. ;-----------------------------------------------------------------------;
  200.  
  201.  
  202. odd    macro
  203.     ife (offset $) AND 1
  204.     nop
  205.     endif
  206.     endm
  207.  
  208.  
  209.  
  210. ;-----------------------------------------------------------------------;
  211. ; pushem
  212. ; popem
  213. ;
  214. ; Allows giving a list of registers to push/pop on a single line.
  215. ; Also allows easy verificaton that pushes and pops are balanced
  216. ; because arguements are given in the same order:
  217. ;
  218. ;    pushem    ax,bx,cx   goes with
  219. ;    popem    ax,bx,cx
  220. ;
  221. ; Arguments:
  222. ;    registers to push/pop
  223. ; Returns:
  224. ;    nothing
  225. ; Alters:
  226. ;    nothing
  227. ; Calls:
  228. ;    nothing
  229. ; History:
  230. ;
  231. ;  Mon Mar 09, 1987 06:12:32p    -by-    Wesley O. Rupel   [wesleyr]
  232. ; Wrote it!
  233. ;-----------------------------------------------------------------------;
  234.  
  235.  
  236. pushem    macro    r1,r2,r3,r4,r5,r6,r7,r8,r9,rA,rB,rC,rD,rE,rF,r10,r11,r12
  237.     irp    x,<r1,r2,r3,r4,r5,r6,r7,r8,r9,rA,rB,rC,rD,rE,rF,r10,r11,r12>
  238.     ifnb    <x>
  239.     push    x
  240.     endif
  241.     endm
  242.     endm
  243.  
  244. popem    macro    r1,r2,r3,r4,r5,r6,r7,r8,r9,rA,rB,rC,rD,rE,rF,r10,r11,r12
  245.     irp    x,<r12,r11,r10,rF,rE,rD,rC,rB,rA,r9,r8,r7,r6,r5,r4,r3,r2,r1>
  246.     ifnb    <x>
  247.     pop    x
  248.     endif
  249.     endm
  250.     endm
  251.  
  252.  
  253.  
  254. ;-----------------------------------------------------------------------;
  255. ; smov
  256. ;
  257. ; smove moves the contents of one segment register into another
  258. ; segment register.
  259. ;
  260. ; usage
  261. ;
  262. ;    smov    x,y
  263. ;
  264. ; where
  265. ;
  266. ;    x is the destination register
  267. ;    y is the source register
  268. ;
  269. ; Arguments:
  270. ;    y is source segment register
  271. ; Returns:
  272. ;    x segment register = y segment register
  273. ; Alters:
  274. ;    x segment register
  275. ; Calls:
  276. ;    nothing
  277. ; History:
  278. ;
  279. ;  Mon Mar 09, 1987 06:12:32p    -by-    Wesley O. Rupel   [wesleyr]
  280. ; Wrote it!
  281. ;-----------------------------------------------------------------------;
  282.  
  283.  
  284. smov    macro    x,y
  285.     push    y
  286.     pop    x
  287.     endm
  288.  
  289.  
  290. ;-----------------------------------------------------------------------;
  291. ; jmps  - jump short
  292. ;
  293. ; does a shourt jump, (stupid masm!)
  294. ;
  295. ; usage
  296. ;       jmps    label       ==>     jmp short label
  297. ;
  298. ; where
  299. ;       label is the destination label
  300. ;
  301. ;-----------------------------------------------------------------------;
  302.  
  303. jmps    macro   there
  304.         jmp     short there
  305.     endm
  306.  
  307.  
  308. ;--------------------------------------------------------------------------;
  309. ; abs_ax
  310. ;    takes absolute value of AX
  311. ; Entry:
  312. ;    AX    = integer
  313. ; Returns:
  314. ;    AX    = abs(AX)
  315. ; Error Returns:
  316. ;    none
  317. ; Registers Destroyed:
  318. ;    DX,FLAGS
  319. ; Registers Preserved:
  320. ;    BX,CX,SI,DI,DS,ES,BP
  321. ; Calls:
  322. ;    none
  323. ; History:
  324. ;  Thu Mar 05, 1987 06:15:46p    -by-  Tony Pisculli    [tonyp]
  325. ; wrote it
  326. ;--------------------------------------------------------------------------;
  327.  
  328.  
  329. abs_ax    macro
  330.     cwd
  331.     xor    ax,dx
  332.     sub    ax,dx
  333.     endm
  334.  
  335.  
  336.  
  337. ;--------------------------------------------------------------------------;
  338. ; min_ax
  339. ;    returns min of AX and REG
  340. ; Entry:
  341. ;    AX    = integer
  342. ;    REG    = general purpose register containing an integer
  343. ; Returns:
  344. ;    AX    = min(AX,REG)
  345. ; Error Returns:
  346. ;    none
  347. ; Registers Destroyed:
  348. ;    DX,FLAGS
  349. ; Registers Preserved:
  350. ;    BX,CX,SI,DI,DS,ES,BP
  351. ; Calls:
  352. ;    none
  353. ; History:
  354. ;  Sat Mar 07, 1987 08:39:04p    -by-  Tony Pisculli    [tonyp]
  355. ; wrote it
  356. ;--------------------------------------------------------------------------;
  357.  
  358.  
  359. min_ax  macro   REG
  360. ifdif <REG>,<0>
  361.         sub     ax,REG
  362. endif
  363.     cwd
  364.     and    ax,dx
  365. ifdif <REG>,<0>
  366.         add     ax,REG
  367. endif
  368.     endm
  369.  
  370.  
  371.  
  372. ;--------------------------------------------------------------------------;
  373. ; max_ax
  374. ;    returns max of AX and REG
  375. ; Entry:
  376. ;    AX    = integer
  377. ;    REG    = general purpose register containing an integer
  378. ; Returns:
  379. ;    AX    = max(AX, REG)
  380. ; Error Returns:
  381. ;    none
  382. ; Registers Destroyed:
  383. ;    DX,FLAGS
  384. ; Registers Preserved:
  385. ;    BX,CX,SI,DI,DS,ES,BP
  386. ; Calls:
  387. ;    none
  388. ; History:
  389. ;  Sat Mar 07, 1987 08:41:38p    -by-  Tony Pisculli    [tonyp]
  390. ; wrote it
  391. ;--------------------------------------------------------------------------;
  392.  
  393.  
  394. max_ax  macro   REG
  395. ifdif <REG>,<0>
  396.         sub     ax,REG
  397. endif
  398.     cwd
  399.     not    dx
  400.         and     ax,dx
  401. ifdif <REG>,<0>
  402.         add     ax,REG
  403. endif
  404.     endm
  405.  
  406.  
  407.  
  408. ;    The following equates are used for defining the target
  409. ;    processor to the shift macros.
  410.  
  411.  
  412. GENERIC    equ    0
  413.  
  414.  CPU    equ     GENERIC
  415. ;CPU    equ    88
  416. ;CPU    equ    86
  417. ;CPU    equ    186
  418. ;CPU    equ     286
  419. ;CPU    equ    386
  420.  
  421.  
  422.  
  423. ;--------------------------------------------------------------------------;
  424. ; shiftl
  425. ;
  426. ; shiftl is used to implement the advanced shift left immediate
  427. ; (SHL dest,count) functionality of the 286 and 386.
  428. ;
  429. ; Entry:
  430. ;    DEST    = var to shift
  431. ;    COUNT    = number to shift by
  432. ; Returns:
  433. ;    DEST    = DEST shl COUNT
  434. ; Error Returns:
  435. ;    none
  436. ; Registers Destroyed:
  437. ;    none
  438. ; Registers Preserved:
  439. ;    all
  440. ; Calls:
  441. ;    none
  442. ; History:
  443. ;  Sat Mar 07, 1987 08:44:30p    -by-  Tony Pisculli    [tonyp]
  444. ; wrote it
  445. ;--------------------------------------------------------------------------;
  446.  
  447.  
  448. shiftl    macro    DEST,COUNT
  449. if (CPU eq 286) or (CPU eq 386)
  450.     shl    DEST,COUNT
  451. else
  452.     REPT    COUNT
  453.     shl    DEST,1
  454.     ENDM
  455. endif
  456.     endm
  457.  
  458.  
  459.  
  460. ;--------------------------------------------------------------------------;
  461. ; shiftr
  462. ;
  463. ; shiftr is used to implement the advanced shift right immediate
  464. ; (SHR dest,count) functionality of the 286 and 386.
  465. ;
  466. ; Entry:
  467. ;    DEST    = var to shift
  468. ;    COUNT    = number to shift by
  469. ; Returns:
  470. ;    DEST    = DEST shr COUNT
  471. ; Error Returns:
  472. ;    none
  473. ; Registers Destroyed:
  474. ;    none
  475. ; Registers Preserved:
  476. ;    all
  477. ; Calls:
  478. ;    none
  479. ; History:
  480. ;  Sat Mar 07, 1987 08:44:52p    -by-  Tony Pisculli    [tonyp]
  481. ; wrote it
  482. ;--------------------------------------------------------------------------;
  483.  
  484.  
  485. shiftr    macro    DEST,COUNT
  486. if (CPU eq 286) or (CPU eq 386)
  487.     shr    DEST,COUNT
  488. else
  489.     REPT    COUNT
  490.     shr    DEST,1
  491.     ENDM
  492. endif
  493.     endm
  494.  
  495.  
  496. ;--------------------------------------------------------------------------;
  497. ; rotcr, rotcl
  498. ; rotr, rotl
  499. ;
  500. ; Use just like you would rcr (or rcl, rol, ror) immediate in 286 specific
  501. ; code.  If the processor does not support the immediate count (>1 on 808[68])
  502. ; then the macro generates multiple rcr (...) by one statements.
  503. ;
  504. ; Entry:
  505. ;    DEST    = var to rotate
  506. ;    COUNT    = number to rotate by
  507. ; Returns:
  508. ;    DEST    = DEST shr COUNT
  509. ; Error Returns:
  510. ;    none
  511. ; Registers Destroyed:
  512. ;    none
  513. ; Registers Preserved:
  514. ;    all
  515. ; Calls:
  516. ;    none
  517. ; History:
  518. ; 
  519. ;  Fri Apr 17, 1987 08:39:39p    -by-    Wesley O. Rupel      [wesleyr]
  520. ; added rotl and rotr
  521. ;
  522. ;  Sun Apr 12, 1987 07:34:37p    -by-    Wesley O. Rupel      [wesleyr]
  523. ; wrote it
  524. ;--------------------------------------------------------------------------;
  525.  
  526.  
  527. rotcr    macro    DEST,COUNT
  528. if (CPU eq 286) or (CPU eq 386)
  529.     rcr    DEST,COUNT
  530. else
  531.     REPT    COUNT
  532.     rcr    DEST,1
  533.     ENDM
  534. endif
  535.     endm
  536.  
  537. rotcl    macro    DEST,COUNT
  538. if (CPU eq 286) or (CPU eq 386)
  539.     rcl    DEST,COUNT
  540. else
  541.     REPT    COUNT
  542.     rcl    DEST,1
  543.     ENDM
  544. endif
  545.     endm
  546.  
  547.  
  548.  
  549. rotl    macro    DEST,COUNT
  550. if (CPU eq 286) or (CPU eq 386)
  551.     rol    DEST,COUNT
  552. else
  553.     REPT    COUNT
  554.     rol    DEST,1
  555.     ENDM
  556. endif
  557.     endm
  558.  
  559.  
  560. rotr    macro    DEST,COUNT
  561. if (CPU eq 286) or (CPU eq 386)
  562.     ror    DEST,COUNT
  563. else
  564.     REPT    COUNT
  565.     ror    DEST,1
  566.     ENDM
  567. endif
  568.     endm
  569.  
  570.  
  571. ;--------------------------------------------------------------------------;
  572. ; ashiftr
  573. ;
  574. ; ashiftr is used to implement the advanced shift arithmetic right immediate
  575. ; (SAR dest,count) functionality of the 286 and 386.
  576. ;
  577. ; Entry:
  578. ;    DEST    = var to shift
  579. ;    COUNT    = number to shift by
  580. ; Returns:
  581. ;    DEST    = DEST sar COUNT
  582. ; Error Returns:
  583. ;    none
  584. ; Registers Destroyed:
  585. ;    none
  586. ; Registers Preserved:
  587. ;    all
  588. ; Calls:
  589. ;    none
  590. ; History:
  591. ;  Sat Mar 07, 1987 08:45:06p    -by-  Tony Pisculli    [tonyp]
  592. ; wrote it
  593. ;--------------------------------------------------------------------------;
  594.  
  595.  
  596. ashiftr    macro    DEST,COUNT
  597. if (CPU eq 286) or (CPU eq 386)
  598.     sar    DEST,COUNT
  599. else
  600.     REPT    COUNT
  601.     sar    DEST,1
  602.     ENDM
  603. endif
  604.     endm
  605.  
  606.  
  607.  
  608. ;---------------------------------Macro---------------------------------;
  609. ; jmpnext
  610. ; jmpnext stop
  611. ;
  612. ; jmpnext is used in the generation of fall through chains.  It
  613. ; generates the opcode used to swallow the next two bytes of object
  614. ; code (cmp ax,immediate word), and performs error checking to
  615. ; ensure that only two bytes of object code exist between any
  616. ; use of jmpnext.
  617. ;
  618. ; The chain is terminated by use of an optional parameter to jmpnext.
  619. ; If this optional field is non-blank, the chain is terminated.
  620. ;
  621. ; usage
  622. ;
  623. ;    dog:
  624. ;          mov    al,34
  625. ;         jmpnext
  626. ;
  627. ;    foo:
  628. ;         mov     al,0
  629. ;         jmpnext
  630. ;
  631. ;    bar:
  632. ;         mov     al,1
  633. ;         jmpnext stop            ;End of the chain
  634. ;
  635. ; Entry:
  636. ;    none
  637. ; Returns:
  638. ;    none
  639. ; Error Returns:
  640. ;    none
  641. ; Registers Destroyed:
  642. ;    FLAGS
  643. ; Registers Preserved:
  644. ;    AX,BX,CX,DX,SI,DI,BP,DS,ES
  645. ; Calls:
  646. ;       none
  647. ; History:
  648. ;    Fri 13-Mar-1987 12:03:16 -by-  Walt Moore [waltm]
  649. ;    Initial version
  650. ;-----------------------------------------------------------------------;
  651.  
  652.  
  653. ??ji    =    0            ;;Initial index value
  654.  
  655. jmpnext macro e
  656. jn %??ji,%(??ji+1),e            ;;Set next label
  657. endm
  658.  
  659. jn macro i,j,e
  660. .sall
  661. ??ji&i:
  662. .xall
  663. ifb <e>                 ;;If not the end of the chain
  664.     db    03Dh            ;;cmp ax, next two bytes
  665. errn$    ??ji&j,+2            ;;next lable must be two bytes away
  666. endif
  667. ??ji=j                    ;;increment counter
  668. endm
  669.  
  670.  
  671.  
  672. ;---------------------------------Macro---------------------------------;
  673. ; missing_code
  674. ;
  675. ; missing_code is a macro which will display a message on the screen
  676. ; at assembly time.  It is used to flag code sequences which have not
  677. ; been completed.
  678. ;
  679. ; usage
  680. ;
  681. ;    missing_code    <text>
  682. ;
  683. ; Entry:
  684. ;    none
  685. ; Returns:
  686. ;    none
  687. ; Error Returns:
  688. ;    none
  689. ; Registers Destroyed:
  690. ;    none
  691. ; Registers Preserved:
  692. ;    ALL
  693. ; Calls:
  694. ;       none
  695. ; History:
  696. ;    Sun 22-Mar-1987 18:21:34 -by-  Walt Moore [waltm]
  697. ;    Initial version
  698. ;-----------------------------------------------------------------------;
  699.  
  700. missing_code    macro    x
  701.     if1
  702.     ??_out    <&! Missing Code &!  x>
  703.     endif
  704.     endm
  705.  
  706. ;---------------------------Macro---------------------------------------;
  707. ; LMHtoP
  708. ;
  709. ; Converts a Local Memory Handle to a local pointer.
  710. ;
  711. ; Entry:
  712. ;     reg1[,reg2]
  713. ; Returns:
  714. ;     reg1 = pointer
  715. ; Error Returns:
  716. ;     
  717. ; Registers Destroyed:
  718. ;     none
  719. ; History:
  720. ;  Mon Mar 23, 1987 06:54:26a  -by-  Charles Whitmer [chuckwh]
  721. ; Imported from GDI.
  722. ;-----------------------------------------------------------------------;
  723.  
  724. LMHtoP macro r1,r2        ;; Local Movable Handle to pointer
  725. ifnb <r2>
  726.     mov    r1,[r2]
  727. else
  728.     mov    r1,[r1]
  729. endif
  730. endm
  731.  
  732.  
  733. ;-------------------------Macro-----------------------------------------;
  734. ; WriteAux
  735. ;
  736. ; Writes some debugging info to the standard aux device.
  737. ;
  738. ; Entry:
  739. ;    none
  740. ; Returns:
  741. ;    none - string was output to aux
  742. ; History:
  743. ;   Wed Apr-05-1981 -by- Gary Maltzen, Preferred Solutions, Inc.
  744. ;   Changed to use TRACER.
  745. ;
  746. ;   Mon Jan-30-1989 -by- David Miller, Video Seven Inc.
  747. ;   Wrote it.
  748. ;
  749. ;-----------------------------------------------------------------------;
  750.  
  751. ifdef    DEBUG
  752.  
  753.     extrn   tracer : far
  754.  
  755. WriteAux    macro    text
  756.     local    over
  757.     call    tracer
  758.     jmp    short over
  759.     db    "&text&",13,10
  760. over    label    near
  761.         endm
  762.  
  763. else;    DEBUG
  764.  
  765. WriteAux    macro
  766.         endm
  767.  
  768. endif;    DEBUG
  769.  
  770. ;WriteAux    macro   dstr
  771. ;    local    WriteAuxStr,WriteAuxStrLen
  772. ;
  773. ;ifdef    DEBUG
  774. ;
  775. ;    jmp    @F
  776. ;
  777. ;WriteAuxStr    db  dstr,10,13
  778. ;WriteAuxStrLen    equ $-WriteAuxStr
  779. ;
  780. ;@@:
  781. ;    push    ax
  782. ;    push    bx
  783. ;    push    cx
  784. ;    push    dx
  785. ;    push    ds
  786. ;
  787. ;    mov    ax,cs            ;Get segment of string into ds
  788. ;    mov    ds,ax
  789. ;    lea    dx,WriteAuxStr
  790. ;    mov    cx,WriteAuxStrLen
  791. ;    mov    bx,0003h        ;standard aux device
  792. ;    mov    ah,040h         ;Write String
  793. ;    int    21h
  794. ;
  795. ;    pop    ds
  796. ;    pop    dx
  797. ;    pop    cx
  798. ;    pop    bx
  799. ;    pop    ax
  800. ;endif
  801. ;    endm
  802.  
  803. ;-------------------------Macro-----------------------------------------;
  804. ; ?_pub
  805. ;
  806. ; Conditionally generates debugging public symbol if PUBDEFS is defined.
  807. ;
  808. ; Entry:
  809. ;
  810. ; Returns:
  811. ;
  812. ; History:
  813. ;    Mon 13-Feb-1989  -by-  Gary Maltzen.
  814. ;    Wrote it.
  815. ;
  816. ;-----------------------------------------------------------------------;
  817.  
  818. ?_pub    macro    name
  819.     ifdef    PUBDEFS
  820.     public    name
  821.     endif
  822.     endm
  823.  
  824. ;-------------------------Macro-----------------------------------------;
  825. ; REPSTOSB Dst
  826. ;
  827. ; store <cx> copies of al at Dst, aliging destination on WORD writes
  828. ;
  829. ;   Dst         destination, must be of the form SEL:[di] (default is es:[di])
  830. ;
  831. ; Entry:
  832. ;   Dst         -> points to dest buffer
  833. ;   al          byte to write
  834. ;   cx          count bytes
  835. ;
  836. ; NOTE a dest segment other than ES is handled by generating a loop
  837. ; all other cases generate a rep mov
  838. ;
  839. ; NOTE this code assumes the direction flag is set to FORWARD
  840. ;
  841. ; Returns:
  842. ;
  843. ; History:
  844. ;       Sun 31-Jul-1989  -by-  ToddLa
  845. ;    Wrote it.
  846. ;
  847. ;-----------------------------------------------------------------------;
  848.  
  849. ?REPSTOSB macro Dst
  850.         local   l1
  851.         local   l2
  852.         local   l3
  853.  
  854.         mov     ah,al               ; make sure ah == al
  855. fesdi = 0
  856.  
  857. ifidni <Dst>,<es:[di]>
  858.     fesdi = 1
  859. endif
  860.  
  861. ifidni <Dst>,<es:[edi]>
  862.     fesdi = 1
  863. endif
  864.  
  865. if fesdi
  866. ;
  867. ;   This is the easy case, we can use stos
  868. ;
  869.         test    di,1
  870.         jz      l1
  871.         stos    byte ptr Dst
  872.         dec     cx
  873. l1:
  874.         shr     cx,1
  875.         rep     stos word ptr Dst
  876.         adc     cl,cl
  877.         rep     stos byte ptr Dst
  878. else
  879. ;
  880. ;   This is the hard case, stos cant take a override, fake it
  881. ;
  882.         test    di,1
  883.         jz      l1
  884.         mov     byte ptr Dst,al
  885.         inc     di
  886.         dec     cx
  887. l1:     jcxz    l3
  888.         shr     cx,1
  889.         pushf
  890. l2:     mov     word ptr Dst,ax
  891.         inc     di
  892.         inc     di
  893.         loop    l2
  894.  
  895.         popf
  896.         jnc     l3
  897.         mov     byte ptr Dst,al
  898.         inc     di
  899. l3:
  900. endif
  901.         endm
  902.  
  903. REPSTOSB macro Dst
  904. ifb <Dst>
  905.         ?REPSTOSB es:[di]
  906. else
  907.         ?REPSTOSB Dst
  908. endif
  909.         endm
  910.  
  911. ;-------------------------Macro-----------------------------------------;
  912. ; REPMOVSB Dst, Src, alignR
  913. ;
  914. ; copy <cx> bytes from Src to Dst, aliging destination or source
  915. ; on WORD writes
  916. ;
  917. ;   Dst         destination, must be of the form SEL:[di] (default is es:[di])
  918. ;   Src         source,      must be of the form SEL:[si] (default is ds:[si])
  919. ;   alignR      register to align   si or di (default is di)
  920. ;
  921. ; Entry:
  922. ;   Src         -> points to source buffer
  923. ;   Dst         -> points to dest buffer
  924. ;   cx          count bytes
  925. ;
  926. ; NOTE a dest segment other than ES is handled by generating a loop
  927. ; all other cases generate a rep mov
  928. ;
  929. ; NOTE this code assumes the direction flag is set to FORWARD
  930. ;
  931. ; Returns:
  932. ;
  933. ; History:
  934. ;       Sun 31-Jul-1989  -by-  ToddLa
  935. ;    Wrote it.
  936. ;
  937. ;-----------------------------------------------------------------------;
  938.  
  939. ?REPMOVSB  macro Dst, Src, alignR
  940.         local   l1
  941.         local   l2
  942.         local   l3
  943.  
  944. fesdi = 0
  945.  
  946. ifidni <Dst>,<es:[di]>
  947.     fesdi = 1
  948. endif
  949.  
  950. ifidni <Dst>,<es:[edi]>
  951.     fesdi = 1
  952. endif
  953.  
  954. if fesdi
  955.         ;
  956.         ;   Destination segment register is ES we can use MOVS
  957.         ;
  958.         test    alignR,1
  959.         jz      l1
  960.         movs    byte ptr Dst, byte ptr Src
  961.         dec     cx
  962. l1:     shr     cx,1
  963.         rep     movs    word ptr Dst, word ptr Src
  964.         adc     cl,cl
  965.         rep     movs    byte ptr Dst, byte ptr Src
  966. else
  967.         ;
  968.         ;   Destination segment register is not ES!
  969.         ;   generate code that does the same thing
  970.         ;
  971.         push    ax
  972.  
  973.         test    alignR,1
  974.         jz      l1
  975.         lods    byte ptr Src
  976.         mov     byte ptr Dst,al
  977.         inc     di
  978.         dec     cx
  979. l1:     jcxz    l3
  980.         shr     cx,1
  981.         pushf
  982. l2:     lods    word ptr Src
  983.         mov     word ptr Dst,ax
  984.         inc     di
  985.         inc     di
  986.         loop    l2
  987.         popf
  988.         jnc     l3
  989.         lods    byte ptr Src
  990.         mov     byte ptr Dst,al
  991.         inc     di
  992. l3:
  993.         pop     ax
  994. endif
  995.         endm
  996.  
  997. REPMOVSB  macro Dst, Src, alignR
  998.  
  999. ifb <Dst>
  1000.         ?REPMOVSB es:[di],ds:[si],di
  1001.         exitm
  1002. endif
  1003.  
  1004. ifb <Src>
  1005.         ?REPMOVSB Dst,ds:[si],di
  1006.         exitm
  1007. endif
  1008.  
  1009. ifb <alignR>
  1010.         ?REPMOVSB Dst,Src,di
  1011.         exitm
  1012. endif
  1013.         ?REPMOVSB Dst,Src,alignR
  1014.  
  1015.         endm
  1016.